home *** CD-ROM | disk | FTP | other *** search
/ Xenosoft 2 / Xenosoft 2 (Game collection)(1994).iso / bioforge / script / beachbot.scp < prev    next >
Text File  |  1994-11-18  |  4KB  |  310 lines
  1. // BEACHBOT.SCR
  2.  
  3. { PICKENEMY
  4.  
  5.     :TOP_PICKENEMY
  6.     I  ^àÅ            == 0 && ^àÉ            == 0 && ^àæ            == 0 THEN é     
  7.     I  @Ç¢               PLAYER == 0 THEN é     
  8.  
  9.     // A POOR MAN'S LINKMETOCAMERAS -BES
  10.     I  @ÇÄ             (BCH) = $Ç╗    THEN
  11.         {
  12.         â      
  13.         J    #Çü          
  14.         }
  15.  
  16.     I  ^àÅ            THEN
  17.         {
  18.         ï           BCHBOT1
  19.         I  @ÇÖ             IN -20, 20 THEN
  20.             {
  21.             @Ç¢               BCHBOT1
  22.             ┬             
  23.             J    #Çé   
  24.             }
  25.         }
  26.  
  27.     I  ^àÉ            THEN
  28.         {
  29.         ï           BCHBOT2
  30.         I  @ÇÖ             IN -20, 20 THEN
  31.             {
  32.             @Ç¢               BCHBOT2
  33.             ┬             
  34.             J    #Çé   
  35.             }
  36.         }
  37.  
  38.     I  ^àæ            THEN
  39.         {
  40.         ï           BCHBOT3
  41.         I  @ÇÖ             IN -20, 20 THEN
  42.             {
  43.             @Ç¢               BCHBOT3
  44.             ┬             
  45.             }
  46.         }
  47.  
  48.     :BOTTOM
  49.     â      
  50.     â      
  51.     J    #Çü          
  52. }
  53.  
  54. // READY_BEACHBOTS INITIALIZES THE ROBOT AI FOR THE BEACH
  55. // IT SHOULD BE CALLED ONCE FROM BEACH.SCR.
  56. { READY_BEACHBOTS
  57.  
  58.   @Çì      PICKENEMY
  59.  
  60.   I ( ^àÅ            = $Ç╝   ) THEN
  61.     @Çì      READY_BBOT1
  62.  
  63.   I ( ^àÉ            = $Ç╝   ) THEN
  64.     @Çì      READY_BBOT2
  65.  
  66.   I ( ^àæ            = $Ç╝   ) THEN
  67.     @Çì      READY_BBOT3
  68.  
  69. }
  70.  
  71. { READY_A_BEACHBOT
  72.  
  73.     Z       CURFIG OFF
  74.     r          CURFIG OFF
  75.     è          ON
  76.     A  OFF
  77.     ┬             
  78.     //DEFINEENEMY PLAYER
  79. }
  80.  
  81. { READY_BBOT1
  82.  
  83.     I  @Ç¢              ( BCHBOT1 ) = $Ç╗    THEN
  84.         {
  85.         Q      ("CAN'T FIND BEACHBOT1 !!");
  86.         é     
  87.         }
  88.  
  89.     @Ç¥   READY_A_BEACHBOT
  90.     Y                 BCHA BCHB BCHC BCH9 BCHD
  91.  
  92.     ö     BCHBOT1
  93.     G     B_BOT1
  94.     £     -90
  95.  
  96.     ª             B_BOT1
  97.  
  98.     M      ATK_STAND CONTINUE
  99.     A  ON
  100. }
  101.  
  102. { READY_BBOT2
  103.  
  104.     I  @Ç¢              ( BCHBOT2 ) = $Ç╗    THEN
  105.         {
  106.         Q      ("CAN'T FIND BEACHBOT2 !!");
  107.         é     
  108.         }
  109.  
  110.     @Ç¥   READY_A_BEACHBOT
  111.     Y                 BCHA BCHB BCHC BCH9 BCHD
  112.  
  113.     ö     BCHBOT2
  114.     G     B_BOT2
  115.     £     -90
  116.  
  117.     ª             B_BOT2
  118.  
  119.     M      ATK_STAND CONTINUE
  120.     A  ON
  121. }
  122.  
  123. { READY_BBOT3
  124.  
  125.     I  @Ç¢              ( BCHBOT3 ) = $Ç╗    THEN
  126.         {
  127.         Q      ("CAN'T FIND BEACHBOT3 !!");
  128.         é     
  129.         }
  130.  
  131.     @Ç¥   READY_A_BEACHBOT
  132.     Y                 BCHA BCHB BCHC BCH9 BCHD
  133.  
  134.     ö     BCHBOT3
  135.     G       B_BOT3
  136.     £     -90
  137.  
  138.     ª             B_BOT3
  139.  
  140.     M      ATK_STAND CONTINUE
  141.     A  ON
  142. }
  143.  
  144. { BCHBOT1_FIRE
  145.     @Ç¥   BEACHBOT_FIRE
  146. }
  147.  
  148. { BCHBOT2_FIRE
  149.     @Ç¥   BEACHBOT_FIRE
  150. }
  151.  
  152. { BCHBOT3_FIRE
  153.     @Ç¥   BEACHBOT_FIRE
  154. }
  155.  
  156.  
  157. { BEACHBOT_FIRE
  158.  
  159.     // BEACHBOT WILL FIRE A LASER FROM HIS LIMB NAMED 'GUN'
  160.     Ü            ( 10,0,0, 1 )
  161.     //CHANGEPALETTE( 0,10,0, 1 )
  162.                 @Ç╣          NRLASER GUN 5 60 (0,0,0)
  163. }
  164.  
  165. { BOT_AI_1
  166.  
  167.     i           LEX BSNBOTS
  168.     I  ^àÄ        = 1 THEN ^àÄ        = 0
  169.     E    ^àÄ        = 1
  170. }
  171.  
  172. { BOT_AI_2
  173.  
  174.     I  ^àÄ        = 1 THEN ^àÄ        = 0
  175.     E    ^àÄ        = 1
  176. }
  177.  
  178. { BOT_AI_3
  179.  
  180.     I  ^àÄ        = 1 THEN ^àÄ        = 0
  181.     E    ^àÄ        = 1
  182. }
  183.  
  184. { BOT_AI_4
  185.  
  186.     I  ^àÄ        = 1 THEN ^àÄ        = 0
  187.     E    ^àÄ        = 1
  188. }
  189.  
  190.  
  191. { BCHBOT1_AI
  192.  
  193.     :TOP
  194.  
  195.     â      
  196.  
  197.     I ( ^àÅ            = $Ç╗    ) THEN
  198.         é     
  199.  
  200.     I ( ^àÄ        = 0 ) THEN
  201.         J    #Çæ
  202.  
  203.     p          
  204.  
  205.     M      FIRE CONTINUE
  206.  
  207.     W    30
  208.     p          
  209.     W    50
  210.     J    #Çæ
  211.  
  212. }
  213.  
  214. { BCHBOT2_AI
  215.  
  216.     :TOP
  217.  
  218.     â      
  219.  
  220.     I ( ^àÉ            = $Ç╗    ) THEN
  221.         é     
  222.     I ( ^àÄ        = 0 ) THEN
  223.         J    #Çô
  224.  
  225.     p          
  226.  
  227.     M      FIRE CONTINUE
  228.  
  229.     W    30
  230.     p          
  231.     W    50
  232.     J    #Çô
  233.  
  234. }
  235.  
  236. { BCHBOT3_AI
  237.  
  238.     :TOP
  239.  
  240.     â      
  241.  
  242.     I ( ^àæ            = $Ç╗    ) THEN
  243.         é     
  244.     I ( ^àÄ        = 0 ) THEN
  245.         J    #Çò
  246.  
  247.     p          
  248.  
  249.     M      FIRE CONTINUE
  250.  
  251.     W    30
  252.     p          
  253.     W    50
  254.     J    #Çò
  255.  
  256. }
  257.  
  258. { BEACHBOT_STIMULUS( _DAMAGE )
  259.  
  260. :ENERGY_DAMAGE
  261.  
  262.  
  263.     A  OFF
  264.  
  265.     M      RECOIL_TL
  266.  
  267.     A  ON
  268. }
  269.  
  270. { BCHBOT1_DEATH
  271.     @Ç¢               BCHBOT1
  272.     ^àÅ            = $Ç╗   
  273.     @Ç¥   BCHBOT_DEATH
  274. }
  275.  
  276. { BCHBOT2_DEATH
  277.     @Ç¢               BCHBOT2
  278.     ^àÉ            = $Ç╗   
  279.     @Ç¥   BCHBOT_DEATH
  280. }
  281.  
  282. { BCHBOT3_DEATH
  283.     @Ç¢               BCHBOT3
  284.     ^àæ            = $Ç╗   
  285.     @Ç¥   BCHBOT_DEATH
  286. }
  287.  
  288. { BCHBOT_DEATH
  289.  
  290.     ñ            CURFIG
  291.     // STOP THE ATK MOTION
  292.     o         
  293.     M      EXPLODE
  294.     @Çå   ( `ǽ        , 255 )
  295.     Ü            (20,20,20,1)
  296.     ú             (BOOM,WHITE,CURFIG)
  297.     K    CURFIG
  298.     l       CURFIG CONTINUE
  299. }
  300.  
  301. { KILL_BEACHBOTS
  302.     I  @Ç¢               BCHBOT1 THEN
  303.         K   
  304.     I  @Ç¢               BCHBOT2 THEN
  305.         K   
  306.     I  @Ç¢               BCHBOT3 THEN
  307.         K   
  308. }
  309. //$ 26 - version number
  310.